home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / xprz351s.lha / xprsprintf.a < prev    next >
Text File  |  1994-11-15  |  1KB  |  42 lines
  1. ;--------------------------------------------------------------------------
  2. ; xprsprintf.a is obviously based upon format.a by Russell McOrmond
  3. ; which was distributed with xprfts.library and xprclock.library sources
  4. ; $Id: format.a,v 1.1 92/09/20 12:16:17 rwm Exp Locker: rwm $
  5. ; $Revision: 1.1 $
  6. ; $Date: 92/09/20 12:16:17 $
  7. ;
  8. ;--------------------------------------------------------------------------
  9.  
  10.  
  11.             XDEF _xprsprintf
  12.  
  13. *                XREF _AbsExecBase
  14. *                XREF _LVORawDoFmt
  15.  
  16. ABSEXECBASE        EQU        4
  17. RawDoFmt        EQU        -522
  18.  
  19.                 SECTION CODE
  20.  
  21. _xprsprintf:        ; ( ostring, format, {values} )
  22.                 movem.l a2/a3/a6,-(sp)
  23.  
  24.                 move.l        4*4(sp),a3       ;Get the output string pointer
  25.                 move.l        5*4(sp),a0       ;Get the FormatString pointer
  26.                 lea.l        6*4(sp),a1       ;Get the pointer to the DataStream
  27.                 lea.l        stuffChar(pc),a2
  28. *                move.l        _AbsExecBase,a6
  29. *                jsr        _LVORawDoFmt(a6)
  30.                 move.l        ABSEXECBASE,a6
  31.                 jsr        RawDoFmt(a6)
  32.  
  33.                 movem.l (sp)+,a2/a3/a6
  34.                 rts
  35.  
  36.         ;------ PutChProc function used by RawDoFmt -----------
  37.         stuffChar:
  38.                 move.b        d0,(a3)+        ;Put data to output string
  39.                 rts
  40.  
  41.                 end
  42.